﻿Imports Banco
Public Class frmUsuarioAgregar

    Private mproyectoBE As BE.Usuarios
    Private mproyectoBS As BS.Usuarios


    Function DatosValidos() As Boolean
        Dim primerControl As Control = Nothing
        Dim mensajeDeValidacion As String = String.Empty

        Me.txtNombre.Text = Me.txtNombre.Text.Trim
        Me.txtIdentificacion.Text = Me.txtIdentificacion.Text.Trim
        Me.txtUsuario.Text = Me.txtUsuario.Text.Trim
        Me.txtContrasena.Text = Me.txtContrasena.Text.Trim


        If Me.txtNombre.Text = String.Empty Then
            mensajeDeValidacion = "Nombre es requerido"
            primerControl = Me.txtNombre
        End If


        If Me.txtUsuario.Text = String.Empty Then
            mensajeDeValidacion &= vbCrLf & "Nombre Usuario es requerido"

            If primerControl Is Nothing Then
                primerControl = Me.txtUsuario
            End If
        End If

        If Me.txtContrasena.Text = String.Empty Then
            mensajeDeValidacion = "Contraseña es requerido"
            primerControl = Me.txtContrasena
        End If


        If Not primerControl Is Nothing Then
            MessageBox.Show(mensajeDeValidacion, "Validación", MessageBoxButtons.OK)
            primerControl.Focus()
            Return False

        End If

        Return True
    End Function

    Private Sub bntAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntAceptar.Click
        Me.mproyectoBS = New BS.Usuarios


        If DatosValidos() Then

            Me.mproyectoBE = New BE.Usuarios

            mproyectoBE.NombreCompleto = txtNombre.Text
            mproyectoBE.Identificacion = txtIdentificacion.Text
            mproyectoBE.NombreUsuario = txtUsuario.Text
            mproyectoBE.contrasena = txtContrasena.Text
            mproyectoBE.FechaCreacion = Date.Now
            mproyectoBE.Estado = 2

            If (rbCajero.Checked) Then
                mproyectoBE.Perfil = 1


            ElseIf (rbAdministrador.Checked) Then
                mproyectoBE.Perfil = 2
            End If


            'If (CheckBox1.Checked) Then
            '    mproyectoBE.Estado = 1


            'ElseIf (CheckBox2.Checked) Then
            '    mproyectoBE.Estado = 2
            'End If

            Try
                mproyectoBS.Agregar(mproyectoBE)
            Catch ex As Exception
                MessageBox.Show("Problemas al Insertar Los datos")
            End Try

            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub

    Private Sub bntCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntCancelar.Click
        Me.Close()
    End Sub

    Private Sub frmUsuarioAgregar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub
End Class